home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 22
/
Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso
/
Aminet
/
dev
/
amos
/
APro_GadTools.lha
/
GadTools
/
Beispiele
/
Hires
/
Beispiel4_CycleButtons.ASC
< prev
next >
Wrap
Text File
|
1995-10-08
|
2KB
|
60 lines
' ****************************************
' * Beispiel-Listing Nr.4 (CycleButtons) *
' * ------------------------------------ *
' * evtl. muss noch der pfad in der *
' * letzten zeile geändert werden, *
' * damit das programm die GadTools *
' * finden und beiladen kann. *
' ****************************************
'
'
' **************************************
' Eine Arbeitsmaske erstellen.
' **************************************
'
'
_SCREEN_OPEN[0,1]
_MAKE_MASK[70,30,560,220,2,1,0]
'
'
' **************************************
' Und nun den Text aufbauen.
' **************************************
'
'
Ink 2,0
Text 105,60," ***** Dies ist Beispiel-Listing Nr.4 *****"
Text 105,68," ------------------------------------------"
Text 105,80," Eine Demonstration für Cycle-Buttons!"
Text 105,90," Zum beenden des programms bitte auf EXIT klicken."
Text 266,122,"CycleButton"
'
'
' **************************************
' Ein CycleButton & ein PushButton.
' **************************************
'
'
_CYCLEBUTTON[1,284,130,2,1,0,2,"EINS|ZWEI|DREI|VIER|FÜNF"]
_PUSHBUTTON[1,280,180,2,1,0,2," EXIT "]
'
'
' **************************************
' Warten bis Push-Button geklickt.
' **************************************
'
'
Repeat
_CYCLEBUTTON_HIT
_PUSHBUTTON_HIT
Until Param=1
Direct
'
'
' **************************************
' Das GadTools.Include beiladen.
' **************************************
'
'
Include "df0:GadTools.Inc"